﻿
open System

open System.IO


let fin12Index (line:string) =
    let mutable j = 0;
    for i =1 to 12 do
        j <-line.IndexOf(',',j+1)
    j

let lines = File.ReadAllLines(@"C:\Users\jiangzh\Desktop\d.txt")


lines
|> Array.map( fun line -> 
                    line.
